perm filename TAK.OUT[TIM,LSP] blob
sn#629785 filedate 1981-12-15 generic text, type C, neo UTF8
COMMENT ā VALID 00009 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00006 00004
C00009 00005
C00012 00006
C00014 00007
C00016 00008
C00018 00009
C00019 ENDMK
Cā;
'(THIS IS THE LAP FOR ((DSK (TIM LSP)) TAK MCL))
'(COMPILED BY LISP COMPILER /933 COMAUX /25 PHAS1 /80 MAKLAP /75 INITIA /111)
;COMPILED ON DECEMBER 15, 1981, AT 10:00 PM
(LAP TAK SUBR)
(ARGS TAK (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 7 0 2)
(CAMGE 7 0 1)
(JRST 0 G0002)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(JRST 0 G0001)
G0002
(MOVE 7 0 1)
(SUBI 7 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVEI 3 0 1)
(POP P 2)
(POP P 1)
(CALL 3 'TAK)
(SUB FXP (% 0 0 3 3))
G0001
(SUB P (% 0 0 3 3))
(POPJ P)
()
(LAP TRTAK SUBR)
(ARGS TRTAK (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
G0001
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0003)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0005)
G0003
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 0 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVE 7 @ -1 P)
(SUBI 7 1)
(MOVE 3 -2 P)
(MOVE 2 -3 P)
(PUSH P 1)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 3 'TAK)
(MOVE 5 -1 P)
(MOVEM 1 -2 P)
(MOVEM 5 -4 P)
(POP P -3 P)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 3 3))
(JRST 0 G0001)
G0005
(SUB P (% 0 0 3 3))
(JRST 0 PDLNKJ)
()
(LAP BTAK SUBR)
(ARGS BTAK (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JSP T (0PUSH -3))
(MOVE 7 0 2)
(CAMGE 7 0 1)
(JRST 0 G0008)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(JRST 0 G0011)
G0008
G0001
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0014)
(MOVE 1 -1 P)
(JRST 0 G0013)
G0014
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVEI 1 0 5)
(CALL 3 'BTAK2)
G0013
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0021)
(MOVE 1 -4 P)
(JRST 0 G0020)
G0021
(MOVE 3 -4 P)
(MOVE 2 -2 P)
(EXCH 1 5)
(CALL 3 'BTAK2)
G0020
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 @ -5 P)
(CAMGE 7 0 5)
(JRST 0 G0028)
(MOVE 1 -4 P)
(JRST 0 G0027)
G0028
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(EXCH 1 5)
(CALL 3 'BTAK2)
G0027
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0034)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0011)
G0034
(MOVE 1 -2 P)
(JSP T PDLNMK)
(MOVEM 1 -5 P)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEM 1 -4 P)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 -3 P)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0011
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(LAP BTAK2 SUBR)
(ARGS BTAK2 (() . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JSP T (0PUSH -3))
G0001
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0010)
(MOVE 1 -1 P)
(JRST 0 G0009)
G0010
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVEI 1 0 5)
(CALL 3 'BTAK2)
G0009
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P 5)
(MOVE 7 @ -2 P)
(CAMGE 7 0 5)
(JRST 0 G0017)
(MOVE 1 -4 P)
(JRST 0 G0016)
G0017
(MOVE 3 -4 P)
(MOVE 2 -2 P)
(EXCH 1 5)
(CALL 3 'BTAK2)
G0016
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -2 P)
(SUBI 7 1)
(MOVEM 7 -2 FXP)
(MOVEI 5 -2 FXP)
(PUSH P 5)
(MOVE 7 @ -5 P)
(CAMGE 7 0 5)
(JRST 0 G0024)
(MOVE 1 -4 P)
(JRST 0 G0023)
G0024
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(EXCH 1 5)
(CALL 3 'BTAK2)
G0023
(SUB P (% 0 0 1 1))
(JSP T PDLNMK)
(PUSH P 1)
(MOVE 7 @ -1 P)
(CAMGE 7 @ -2 P)
(JRST 0 G0030)
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(JRST 0 G0032)
G0030
(MOVE 1 -2 P)
(JSP T PDLNMK)
(MOVEM 1 -5 P)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEM 1 -4 P)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 -3 P)
(SUB P (% 0 0 3 3))
(JRST 0 G0001)
G0032
(JSP T PDLNMK)
(SUB P (% 0 0 3 3))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(COMMENT **** (X) Unused LAMBDA variables in function TIMIT)
(LAP TIMIT SUBR)
(ARGS TIMIT (() . 0))
(JSP T (0PUSH -3))
(NCALL 0 'RUNTIME)
(MOVEI 1 '(GCTIME))
(MOVEM 7 -2 FXP)
(CALL 17 'STATUS)
(MOVEI 5 -2 FXP)
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(CALL 3 'TAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 0 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -1 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVE 7 @ 0 P)
(SUB 7 0 1)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(MOVEM 1 -1 P)
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'RUNTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(MOVE 1 -1 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'GCTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(COMMENT **** (X) Unused LAMBDA variables in function TRIMIT)
(LAP TRIMIT SUBR)
(ARGS TRIMIT (() . 0))
(JSP T (0PUSH -3))
(NCALL 0 'RUNTIME)
(MOVEI 1 '(GCTIME))
(MOVEM 7 -2 FXP)
(CALL 17 'STATUS)
(MOVEI 5 -2 FXP)
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(CALL 3 'TRTAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 0 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -1 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVE 7 @ 0 P)
(SUB 7 0 1)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(MOVEM 1 -1 P)
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'RUNTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(MOVE 1 -1 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'GCTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()
(COMMENT **** (X) Unused LAMBDA variables in function BTIMIT)
(LAP BTIMIT SUBR)
(ARGS BTIMIT (() . 0))
(JSP T (0PUSH -3))
(NCALL 0 'RUNTIME)
(MOVEI 1 '(GCTIME))
(MOVEM 7 -2 FXP)
(CALL 17 'STATUS)
(MOVEI 5 -2 FXP)
(MOVEI 3 '6)
(MOVEI 2 '14)
(PUSH P 1)
(MOVEI 1 '22)
(PUSH P 5)
(CALL 3 'BTAK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 0 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -1 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVE 7 @ 0 P)
(SUB 7 0 1)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(MOVEM 1 -1 P)
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'RUNTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(MOVE 1 -1 P)
(NCALL 1 'FLOAT)
(FDVR 7 (% 1000000.0))
(JSP T FLCONS)
(JSP T %NCONS)
(MOVEI 2 'GCTIME)
(JSP T %XCONS)
(CALL 1 '*PRINT)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 3 3))
(POPJ P)
()